object TellAFriendForm: TTellAFriendForm Left = 532 Top = 356 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Tell a friend about MailWasher' ClientHeight = 453 ClientWidth = 473 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poMainFormCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 16 Top = 8 Width = 449 Height = 65 AutoSize = False Caption = 'Tell your friends and peers about MailWasher and help rid the wo' + 'rld of unsolicited commercial email and viruses. Enter their nam' + 'e and email address below, and optionally a personal comment to ' + 'them, and we'#39'll mail them instructions on how and why they shoul' + 'd get MailWasher!'#13#10#13#10'Privacy: MailWasher doesn'#39't capture or stor' + 'e the information you enter below.'#13#10#13#10 WordWrap = True end object GroupBox1: TGroupBox Left = 12 Top = 208 Width = 449 Height = 193 Caption = ' Your Friends'#39' Details ' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 object Label4: TLabel Left = 16 Top = 56 Width = 28 Height = 13 Caption = 'Email:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 16 Top = 24 Width = 31 Height = 13 Caption = 'Name:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label6: TLabel Left = 72 Top = 92 Width = 182 Height = 13 Caption = 'List of friends to tell about MailWasher:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object FriendsNameEdit: TEdit Left = 72 Top = 24 Width = 177 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object EmailEdit: TEdit Left = 72 Top = 56 Width = 177 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object AddButton: TButton Left = 262 Top = 56 Width = 60 Height = 21 Caption = 'Add' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = AddButtonClick end object RemoveButton: TButton Left = 376 Top = 160 Width = 60 Height = 21 Caption = 'Remove' Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = RemoveButtonClick end object FriendListBox: TListBox Left = 72 Top = 108 Width = 297 Height = 73 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False TabOrder = 3 end end object CancelButton: TButton Left = 386 Top = 419 Width = 75 Height = 25 Anchors = [akRight, akBottom] Cancel = True Caption = 'Cancel' TabOrder = 3 OnClick = CancelButtonClick end object OKButton: TButton Left = 298 Top = 419 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = 'Send' Default = True TabOrder = 2 OnClick = OKButtonClick end object GroupBox2: TGroupBox Left = 12 Top = 84 Width = 449 Height = 113 Caption = ' Your Details' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object Label2: TLabel Left = 16 Top = 20 Width = 31 Height = 13 Caption = 'Name:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 16 Top = 52 Width = 47 Height = 13 Caption = 'Comment:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object YourNameEdit: TEdit Left = 72 Top = 20 Width = 177 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object CommentMemo: TMemo Left = 72 Top = 52 Width = 297 Height = 49 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end end end